home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 2004 Junue - Disc 1 / MacFormat 143 CD1.iso / Serious Software / RealCADD3.05.sit / RealCADD3.05 / scripts / reppoutre < prev    next >
Text File  |  2003-04-11  |  2KB  |  97 lines
  1. RCAD script
  2. 1.00
  3. reppoutre
  4. Textbulleup
  5. Textbulledown
  6. 3
  7. 0
  8. 1
  9. 1er n°
  10. Font
  11. Size
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. 1
  20. Helvetica
  21. 18
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. Dim s_angle, s_dx, s_dy, s_Pi as double
  30. Dim s_TSize, s_TPoly as integer
  31.  
  32. s_Pi = 3.141592654
  33. s_dx = lastx - firstx
  34. s_dy = lasty - firsty
  35. s_TSize = val(UserInput3)
  36. s_TPoly = round(s_TSize * 1.1)
  37.   
  38. if s_dx <> 0 then
  39.    s_angle = abs(Atan(s_dy / s_dx)) * 180 / s_Pi
  40.    if s_dx >= 0 then
  41.       if s_dy < 0 then
  42.          s_angle = 360 - s_angle
  43.       end if
  44.    else
  45.       if s_dy > 0 then
  46.          s_angle = 180 - s_angle
  47.       else
  48.          s_angle = 180 + s_angle
  49.       end if
  50.    end if
  51. else
  52.    if s_dy = 0 then
  53.       s_angle = 0
  54.    else
  55.       if s_dy > 0 then
  56.          s_angle = 90
  57.       else
  58.          s_angle = 270
  59.       end if
  60.    end if
  61. end if
  62.  
  63. if GlobalScript1 < 0 then
  64.    GlobalScript1 = val(UserInput1)
  65. else
  66.    GlobalScript1 = GlobalScript1 + 1
  67. end if
  68.  
  69. Add_Polygon(firstx, firsty, 0.35, 7, 0, False, False)
  70.  
  71. if (s_angle < 45) or (s_angle > 315) then
  72.    Add_PointToPolygon(firstx + s_TPoly, firsty - s_TPoly)
  73.    Add_PointToPolygon(firstx + s_TPoly * 2, firsty)
  74.    Add_PointToPolygon(firstx + s_TPoly, firsty + s_TPoly)
  75.    Add_PointToPolygon(firstx, firsty)
  76.    Add_String(Str(GlobalScript1),firstx+s_TPoly,firsty+s_TPoly/3,s_TSize,1,false,false,false,7,0,UserInput3,false,false,0)
  77. elseif s_angle < 135 then
  78.    Add_PointToPolygon(firstx + s_TPoly, firsty + s_TPoly)
  79.    Add_PointToPolygon(firstx, firsty + s_TPoly * 2)
  80.    Add_PointToPolygon(firstx - s_TPoly, firsty + s_TPoly)
  81.    Add_PointToPolygon(firstx, firsty)
  82.    Add_String(Str(GlobalScript1),firstx,firsty+s_TPoly*1.33,s_TSize,1,false,false,false,7,0,UserInput3,false,false,0)
  83. elseif s_angle < 225 then
  84.    Add_PointToPolygon(firstx - s_TPoly, firsty + s_TPoly)
  85.    Add_PointToPolygon(firstx - s_TPoly * 2, firsty)
  86.    Add_PointToPolygon(firstx - s_TPoly, firsty - s_TPoly)
  87.    Add_PointToPolygon(firstx, firsty)
  88.    Add_String(Str(GlobalScript1),firstx-s_TPoly,firsty+s_TPoly/3,s_TSize,1,false,false,false,7,0,UserInput3,false,false,0)
  89. else
  90.    Add_PointToPolygon(firstx - s_TPoly, firsty - s_TPoly)
  91.    Add_PointToPolygon(firstx, firsty - s_TPoly * 2)
  92.    Add_PointToPolygon(firstx + s_TPoly, firsty - s_TPoly)
  93.    Add_PointToPolygon(firstx, firsty)
  94.    Add_String(Str(GlobalScript1),firstx,firsty-s_TPoly+s_TPoly/3,s_TSize,1,false,false,false,7,0,UserInput3,false,false,0)
  95. end if
  96.  
  97.